PC Pro 1999 September/DPPCPRO0999.ISO/Macromed/Flash2/CD Extras/WebTools/JBS.DXR/00124_trash this.txt

Text File | 1997-04-13 | 7.6 KB | 213 lines

-- Welcome to Director --
-- "FileNum=7"
-- "FileNum=14"
== Movie: 320:Desktop Folder:JB&Smcr+.dir Frame: 104 Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 17
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: QT Display update Handler: exitFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: QT Display update Handler: exitFrame
--> go to frame frame()
--> end
== MouseUp Script
== Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 17
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: QT Display update Handler: exitFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: QT Display update Handler: exitFrame
--> go to frame frame()
--> end
== Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 17
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: QT Display update Handler: exitFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: QT Display update Handler: exitFrame
--> go to frame frame()
--> end
== MouseDown Script
== Script: next Handler: mouseDown
--> StopPlay
== Script: Catalog handlers Handler: StopPLay
--> global indexGridMode, scoreSpeed -- non qt mode
--> if  indexGridMode then  set scoreSpeed = 0 -- score based
--> else set the movieRate of sprite 30 = 0 -- stop QT play
--> set the castNum of sprite 16 = the number of cast "playReverse" -- unhlited
--> set the castNum of sprite 17 = the number of cast "playFwd"
--> updateStage
--> end
== Script: next Handler: mouseDown
--> global repeatSpeed, indexGridMode, slideScale
--> BtnDown
== Script: Catalog handlers Handler: BtnDown
--> global oldCast -- paranoid?
--> set oldCast = the castNum of sprite clickon()
== oldCast = 31
--> set the castNum of sprite clickon() = oldCast + 1
--> updateStage
--> end
== Script: next Handler: mouseDown
--> if indexGridMode then -- frame based index pages
--> incQTFrame
== Script: next Handler: incQTFrame
--> --- global CellNum  no longer? needed
--> set T = ( the movieTime of sprite 30 )
== T = 16
--> if T < the stopTime of sprite 30 then
--> set the movieTime of sprite 30 = T + 1
--> ---   set CellNum = CellNum + 1
--> ---  set CellNum = 1
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 18
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: next Handler: incQTFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: next Handler: incQTFrame
--> updateStage
--> end
== Script: next Handler: mouseDown
--> dwell 20 -- wait 1/3 sec
== Script: Catalog handlers Handler: dwell
--> set DwellEnd = the ticks + someTicks
== DwellEnd = 38816
--> repeat while true -- forever
--> if the ticks >= DwellEnd then exit repeat
--> end repeat
--> repeat while true -- forever
--> if the ticks >= DwellEnd then exit repeat
--> end repeat
--> repeat while true -- forever
--> if the ticks >= DwellEnd then exit repeat
--> end
== Script: next Handler: mouseDown
--> repeat while stillDown() -- if still held for auto repeat
--> BtnUp
== Script: Catalog handlers Handler: BtnUp
--> global oldCast -- paranoid
--> set the castNum of sprite clickon() = oldCast
--> updateStage
--> end
== Script: next Handler: mouseDown
--> NameindexMovieFrame
== Script: QT control Handler: NameindexMovieFrame
--> global indexEnd, indexindex, fileNames, FilePaths, Lastindex
--> put the movietime of sprite 30 + 1 into filePicFrame
== filePicFrame = 18
--> ---  if filePicFrame > indexEnd then
--> put line ( filePicFrame ) * 2 - 1 of fileNames into field "NameDisplay"
--> ---  else
== Script: next Handler: mouseDown
--> end if
== Clickon Script for sprite: 14
== MouseUp Script
== Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 18
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: QT Display update Handler: exitFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: QT Display update Handler: exitFrame
--> go to frame frame()
--> end
== Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList
--> set QTframe = (the movieTime of sprite 30) + 1  -- less index page
== QTframe = 18
--> put QTlength + 1 & return & QTframe into field "frameStats"
--> put getat(NameList, QTframe) into field "NameDisplay" -- will get new field later
--> end
== Script: QT Display update Handler: exitFrame
--> updateQTSlider
== Script: QT control Handler: updateQTSlider
--> global slideScale
--> set LeftLimit = (the left of sprite 11) + 8
== LeftLimit = 36
--> set the locH of sprite 12 = LeftLimit + (the movieTime of sprite 30) * slideScale
--> end
== Script: QT Display update Handler: exitFrame
--> go to frame frame()
--> end
== Script: Catalog handlers Handler: idle
--> -- QT status moved to score script
== Script: QT Display update Handler: exitFrame
--> -- QT movie on frame 30
--> UpdateFrameStats
== Script: QT control Handler: UpdateFrameStats
--> global QTlength, NameList